Option Explicit
Sub A_Sample024()
    Dim myRows As Range
    Dim myRng  As Range
    Set myRows = Rows("3:6").Cells		'NCd
    'ǳƨ즹
    With myRows
        Set myRng = .Find(What:="*", After:=.Cells(1), _
        LookIn:=xlFormulas, Searchorder:=xlByColumns, _
        SearchDirection:=xlPrevious)
    End With
    If myRng Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng.Address
    End If
    Set myRows = Nothing			'
    Set myRng = Nothing
End Sub
